use Modern::Perl; my $str = qq@ Satan moneypenny @; $str =~ s@<(.*?)>@@g; say $str; #### Satan moneypenny