use strict;
use warnings;

my $str = 'abc' x 10;

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

##</code><code>##

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