Help for this page

Select Code to Download

Select or download this

print "$_ => ", extract($_)//'invalid', "\n"
    for qw/ xxx x.x.x x12x..x x123x...x x1x2x...x
...
x123x.x.x => x123x.x.x
x12x1x => invalid
ax1x2xbx34x56xc => x1x2xbx34x56x