use strict;
use warnings;

local $_ = q{<>^};

for my $i (qw(<> >^)) {
	/\Q$i/p and print "${^MATCH}\n";
}