Select Code to Download

use strict;

...
/$1\n$2/xg;

print "Replaced:\n", $_, "\n";

my $file="testdata.csv";
open(FILE, $file) or
    die "Can't open $file: $!\n";
select((select(FILE), $/ = undef)[0]);
$_=<FILE>