use strict; use warnings; my @lines = split /\n/, <$`|$'<\n"; } }