use strict;

my $sentence_file = shift (@ARGV);
my $numbers_file = shift (@ARGV);

open SENTENCE, "$sentence_file" || die "cannot open $sentence_file for reading: $!";
open NUMBERS, "$numbers_file" || die "cannot open $numbers_file for reading: $!";

my $sentence = (<SENTENCE>)[0];
print "sentence: $sentence\n";

my @numbers = <NUMBERS>;
foreach my $number (@numbers) {
  my $working_sentence = $sentence;
  chomp $number;
  $number =~ s/\.$//g;

  my $output_file;
  if ($working_sentence =~ /_5/) {
    my $second_number = shift @numbers;
    my $third_number = shift @numbers;
    my $fourth_number = shift @numbers;
    my $fifth_number = shift @numbers;
  $working_sentence =~ s/_5/$number $second_number $third_number $fourth_number $fifth_number/;
    $output_file = "number.test5.".$number."_".$fifth_number.".txt";

  } elsif ($working_sentence =~ /_2/) {
    my $second_number = shift @numbers;
    $working_sentence =~ s/_2/$number $second_number/;
    $output_file = "number.test2.".$number."_".$second_number.".txt";
  }

  open OUTPUT, ">$output_file" || die "cannot open $output_file for writing: $!";  print OUTPUT $working_sentence."\n";
  close OUTPUT;
}