$ perl -e 'print "X: "; my $x = <STDIN>; print "X=", $x'

##</code><code>##

$ perl -e 'print "X: "; my $x = <STDIN>; print "X=", $x'
X: 123
X=123
$