c:\test>perl -nlE"say '*' . substr $_, -7"
1235551234
*5551234
0011235551234
*5551234
5551234
*5551234