Select Code to Download

($_jobcard_basename = basename($_job_card)) =~ s/^sub\.//i;
 $_jobcard_basename =~ s/\.xml//;
...
print FOUT $_jobcard_basename;
local $Data::Dumper::Useqq = 1;
print STDERR Dumper "The Dumper value is $_jobcard_basename";

The output using dumper is
$VAR1 = "The Dumper value is topline.chs ";