my $line = q{one <four>};