#!/usr/bin/perl -w
$/="\$\n";
open(A,'filename')||die$!;
open(B,'>',(split/\n/)[1])and+chomp,print(B)while<A>;
__END__