$a = qq|${system("echo 'hello from system'")}\n|;
$a = "${system(\"echo 'hello from system'\")}\n";

##</code><code>##

#!/usr/bin/perl -wT
use strict;

my $a = <STDIN>;
chomp($a);
print "$a";