perl -ne 'if(/(\w+\.csv)/){close $fh if defined $fh;open $fh,">$1"} elsif(/([0-9.-]+)/){print $fh "$1\n"}' file.txt