my @all=<>;

print "all is:\n";
foreach (@all) {
    print "$_";
    foreach (split /([.,;])/, $_) {print "$_\n"}
}