I'm not sure what you mean by "commit", are you doing some database work? The following is a very basic example for (one way of) checking for spaces within strings:

#!/usr/bin/perl

use strict;
use warnings;

my $path;

$path = "/usr/bin";
#$path = "/usr/bin foo"; # uncomment for testing

if ( $path =~ /\s/){
    print "String $path contains a space character.\n";
}else{
    print "String $path does not contain a space character.\n";
}
[download]

See perlrequick.

Maybe something along those lines:

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;
}
[download]

Could someone help me with a script

It's very likely that someone can help. What do you have so far?