$string = "hello world";
print $string =~ /^.{1}(.{5})/;

##</code><code>##

$string = "hello world";
print $string =~ /^.{!$!}(.{5})/;