#!/usr/bin/perl use strict; use warnings; foreach my $tag (@ARGV) { $tag =~ s/-/ /g; my $taguc = ""; foreach my $t (split(" +", $tag)) { $taguc .= ucfirst($t) . " "; } $taguc =~ s/ +$//; my $tagname = $tag; $tagname =~ s/ +/-/g; $tag =~ s/s$//; open (F, ">javaee-$tagname.mdtext") or die "Can't write to file $!"; print F <javaee6-$tagname.mdtext") or die "Can't write to file $!"; print F <javaee-6-$tagname.mdtext") or die "Can't write to file $!"; print F <java-ee-$tagname.mdtext") or die "Can't write to file $!"; print F <java-ee-6-$tagname.mdtext") or die "Can't write to file $!"; print F <