or download this
c:\@Work\Perl\monks>perl -wMstrict -le
"use Regexp::Common qw(net);
...
(routername2) (static-route 1.1.1.3/30)
'/data/alcatel_7750/routername3- static-route 1.1.1.2/30 next-hop
+ 4.4.4.4 tag 628' ->
(routername3) (static-route 1.1.1.2/30)