my ($variable) = $variable =~ /regex/;