$_=q{<>^};
for $i qw(<> >^){
	/$i/ and print "$&\n"
	}