#!/usr/bin/perl -w
my $string = "abbbbbb";
if ($string =~ m/a(b{3,5})(.*)/) {
        print "\$1='$1' \$2='$2'\n";
}