print $str =~ /(.{30})/;