$line = $array_value;<br>
$_ = $line;<br>
/^(.?)\n/;<br>
print $1.$2.$3."\n";<br>