Assigning variables based on regular expression in perl

regex_variables.pl

# Use match with an explicit variable
$mystr = "hello to the world";
($one, $two) = $mystr =~ /(\w+)[^\w](\w+)/;
print("$one\n");
print("$two\n");

# Use with implicit variable $_
$_ = "hello to the world";
($one, $two) = /(\w+)[^\w](\w+)/;
print("$one\n");
print("$two\n");

# Again using implicit $_, but as the result of other actions
# Equivalent to: while($_ = <STDIN>) {
while(<STDIN>) {
	chomp($_);
	($one, $two) = /(\w+)[^\w](\w+)/;
	print("$one\n");
	print("$two\n");
}