$x = "abcdefghijklmop";
print $x =~/^(.{10})/;