Select Code to Download

use strict;
use warnings;
...
if (length $str == 30) {
    print "\$str has length of 30\n";
}

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