my $line = 'abCdes123';
$line ~~ s:P5:i:g/abc/124/;
say $line;
while ($line ~~ m :P5:g/^\d{2,3}/)
{
	my $value = "$/";
	say $value;
	say get();
}