#!/usr/bin/perl

while (<>) {
  my $line = $_;
  if ( $line =~ /([a-zA-Z0-9\-\_\.]*)\t([a-zA-Z0-9\-\_\.]*)\t(.*)/) {
    print "Type \"$1\" to boot the $1 kernel \n";
  }
}