$line = ~/(.)\n/;