1 2 3 4 5 6 7 8 9 10 11 12
#!/usr/bin/perl use strict; use warnings; for (<DATA>) { chomp if /[a-z]/; print; } __DATA__