use strict;

my $vrx;
while(<DATA>){
  $vrx = $1 if /^10*(\d*)/;
  print $vrx . $1 . "\n" if /^20*(.*)/;
}
__DATA__
1000100
2001foo
2002bar
300badline
2003hello
1000200
2001bish
2002bash