#!/usr/bin/perl -w
# 
use strict; 
my @shows_to_find = <DATA>;
print "Data input \n";
foreach (@shows_to_find){print;}
print "\n", '-' x (60), "\n";

my @dl_nzb = ();
my $nzb_url = 'url ';
my $amp = ' amp ';
my $cat_id = 'cat_id ';
my $api_username_url = 'url2 ';
my $api_username = 'user name ';
my $api_key_url = 'url 3 ';
my $api_key = 'key';

foreach my $y(@shows_to_find)
		{ chomp($y);
		my $show_nzb_d = $nzb_url.$y.$amp.$cat_id.$amp.$api_username_url.$api_username.$amp.$api_key_url.$api_key;
		push(@dl_nzb,$show_nzb_d);
		}
foreach (@dl_nzb){print;print"\n";}
	
print "\n", '-' x (60), "\n";
__DATA__
abc dft45.xml
ert rt653.xml
abc ert57.xml
 

##</code><code>##

perl "C:\Documents and Settings\16916\My Documents\new  4.pl"
Process started >>>
Data input 
abc dft45.xml
ert rt653.xml
abc ert57.xml

------------------------------------------------------------
url abc dft45.xml amp cat_id  amp url2 user name  amp url 3 key
url ert rt653.xml amp cat_id  amp url2 user name  amp url 3 key
url abc ert57.xml amp cat_id  amp url2 user name  amp url 3 key

------------------------------------------------------------
<<< Process finished.
================ READY ================