use strict;

sub trim {
    $_[0] =~ s/^\s+//g;
    $_[0] =~ s/\s+$//g;
}

sub question {
    print "$_[0]? ";
    <>;
}

my $url  = question 'url';
my ($node) = $url =~ /node_id=(\d+)/ ;

my $title  = question 'title';
trim $title;

my @cat;
while (my $cat = question 'category (EOF to end)') {
    trim $cat;
    chomp($cat);
    push @cat, $cat;
}

print "Inserting:\n";
print "node\t\t$node\n";
print "Title\t\t$title\n";
{ local $"= ', '; print "Categories\t@cat\n"; }