# added braces and changed variable name for my $filename () { substr($filename,-7)=" "; print $filename; } #### while () { # this reads from STDIN ... }