#!/usr/bin/perl
$_=shift;$e=/^\d+$/?"^$_ ":$_;print map{$!++;$_.=" $!\n";/$e/i?$_:""}1..127