Select Code to Download

use strict;
use warnings;
...
    $line =~ s/$old_shell/$new_shell/;
    print "$line\n";
}