# added braces and changed variable name for my $filename () { substr($filename,-7)=" "; print $filename; }