#!c:\Dwimperl\perl\bin\perl.exe use CGI qw(:standard); use CGI::Carp qw(fatalsToBrowser); use strict; use warnings; my @ara = split (/ /,cookie("member")); #### splits on spaces into array if($ara[0] =~ /Free Trial/){ print header, start_html; print ""; print "

Welcome back, ".$ara[0]." ".$ara[1]." Member ".$ara[2]." ".$ara[3]."

"; print end_html; }else{ print header, start_html; print ""; print "

Welcome back, ".$ara[0]." Member ".$ara[1]." ".$ara[2]."

"; print end_html; }