use strict;
my $string="Referring Hospital Triage Time <183> 2 h (N <26> 191)";
my $pre_str="Referring Hospital";
my $str1=$string;
$str1=~s/$pre_str(.*?)/$1/;
print "$str1\n";