if /(\w{3}\s+\w{3}\s+\d+)/){ $foo = $&; } #### $foo = $1;