#!/usr/bin/perl -w
while
(
$temp
=<>){
$temp
=
$temp
;
$catch
=
print
$temp
;
print
"
hello
$catch
\n
"
;
print
"
hey:
$/
:
\n
"
;
}