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