1058272.htm"

#!/usr/bin/perl use 5.016; use warnings; # 1058272 say ''; say '1058272.htm"'; say ''; say ''; my ($appname, $prname, $sla, $edate, $status); my $fail = 'red'; my @data = ('appone pr2two sla_three 20131015 fail', 'ap2 pr3 sla4 20131015 good', ); for $_(@data) { ($appname, $prname, $sla, $edate, $status)= split / /,$_; print "'; } say '

$appname, $prname, $sla, $edate,"; print " $status "; say '

'; say ''; ##

##


1058272.htm"


appone, pr2two, sla_three, 20131015, fail 
ap2, pr3, sla4, 20131015, good