Help for this page

Select Code to Download

Select or download this

perl -e 'print qq!$_\n! for grep {length} map {s/.*(\d{7})/*$1/ ? $_ :
+ q!!} @ARGV;' 1234567890 1234567 1234567890123 wibble 123

Select or download this
```
*4567890
*1234567
*7890123
```