Select Code to Download

   #!/Perl -T

...
   # now i can unlink the file as it is the one i am expecting to unli
+nk;
   printf "unlinking %s\n", $file_i_am_about_to_unlink;
   # unlink $file_i_am_about_to_unlink;

my $filename = 'filename.fxt';
my $scrubbed = s/\A(filename\.fxt)\Z/$1/
 or die 'need to read up on regex a bit more';