Help for this page
#!/usr/bin/perl -w use strict; ... print FILE "$line"; print "Thank you!\n"; close(FILE);
$_=$,=q,\,@4O,,s,^$,$\,,s,s,^,b9,s, $_^=q,$\^-]!,,print