Select Code to Download

$foo= "string";
(undef, $foo)=split //,$foo,2;
print $foo;

$foo= "string";
($foo)=$foo=~/.(.*)/s;
print $foo;