#!/usr/bin/perl
#  Converts a long file name with spaces or underscores 
#  to an abbreviated format.
use strict;
my $filename = 'This is my word document there are many like it but this one is mine.doc';
my @array = split /[ \._]/, $filename;
my $ext = pop @array;
print map m/^([\w])/, @array;
print '.' . $ext . "\n";