The tr/// function can remove your $ characters.

$\ = "\n";
if ( ... ) {
    for ( @List ) {
        tr/$//d;
        print;
        print FILE;
    }
}
[download]