...
   print "Got: $in\n";
   if ($in =~ /#:#$/) {
     ...
   } elsif ($in =~ /_$/) {
     ...
   } elsif ($in =~ /__END$/) {
     ...
   } else {
     ...
     # save file
   }