Select Code to Download

if ($remove eq ~ m/^.*\b($remove)\b.*$) {
 # do stuff here
}

sub clean_the_file {
    my $sourcefile = "/u/ccsys/CC_print.printers";
...
    unlink($sourcefile);
    rename( $tempfile, $sourcefile );
}