IN PERL... I need to have the program print from one letter until it reaches

[martinthurn]

my $s = q{TYLEKMRILPYNS_IYGLPPRQ};
$s =~ m/(M.+?_)/;
print $1;

 

[Mike]

_ in a sequence. Any Tips? For example in a sequence like TYLEKMRILPYNS_IYGLPPRQ I need it to print out from the M to the _. If someone could just give me a hint or a tip on what I should do I would greatly appreciate it.

With appreciation mike

 

[martinthurn]

my $s = q{TYLEKMRILPYNS_IYGLPPRQ};
$s =~ m/(M.+?_)/;
print $1;