Select Code to Download

{
    local *_ = \substr $source, $start, $len;
     y/a-zA-Z0-9\n\|-/ /c;
     y/'//d;
}

#!/usr/bin/perl -w
use strict;
...
    }
    print join '', @field;
}