my $foo = "ab"; (my $avar, $foo) = ($foo =~ /(.)(.)/);