$line =~ s!(\d+)!print("$1\n") if ( $1 < 58 )!eg;