#!/usr/bin/perl -nw
use strict;
use warnings;
use autodie;
BEGIN {
	my $input = "</boot/grub/grub.cfg";
	open STDIN, $input;
}

/^(menuentry|submenu) '(.*?)'/ && print "$2\n";