perl -wMstrict -E 'for(1..3){/2(?{$_ += 10})/;say}'
1
12
3