$string =~ /.{30}/s;