foreach my $line (@input){
    if ( /fred/ ){
[download]

Is the same as:

foreach my $line (@input){
    if ( $_ =~ /fred/ ){
[download]

You need to change it to:

foreach my $line (@input){
    if ( $line =~ /fred/ ){
[download]