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