my $str = q(Aren't you glad you listened to Abigail and not Roger?);
system("echo '$str' | cat");

__output__

sh: -c: line 1: unexpected EOF while looking for matching `''
sh: -c: line 2: syntax error: unexpected end of file