use strict;

my $filename = 'fielname.doc';
$filename = &trim($filename);

unless( $filename =~ /\s/ )
{
	## commit 
	print 'Commit', "\n";
}


## Removes leading and trailing spaces
sub trim()
{
	my $nm = shift;
	
	$nm =~ s/^\s+//;	
	$nm =~ s/\s+$//;
	
	return $nm;
}