my $string = "122 Genesis Chamber Mark Tedin A U "; my ( $second ) = $string =~ m/\s{2,}(.+?)\s{2,}/; print "$second\n";