1 2 3 4 5
my $str='P=HierStehtIrgendwas,I=NocheinText'; if($str=~/P=(.+?),I=/) { print "VAL1 = $1\n"; }