#!/usr/bin/perl -w

$|++;
open( N, "route |") or die "$!\n";

my @out = (<N>);

foreach my $line (@out){

   my @words = split(/\s+/,$line);

  if($words[0] eq 'default'){
     print "default-> $words[1]\n";
  }
}
[download]