Timtowdi.

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

or

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

update changed to add /s in second example after bickering senslessly with wog.