Select Code to Download

#!/usr/bin/perl
...
#result:
#124567

for $i(@a){if($i ne $m){push(@b,$i)}} @a=@b;