if ($grupsave1 ne '') {

if ($grupsave1 =~ /^([-\@\w\s.]+)$/) {
                $grupsave1 = $1;
               print $grupsave1;
        } else {
                die "Bad data for group name('$grupsave1') in group";
       }

if ($grupsave2 =~ /^([-\@\w\s.]+)$/) {
                $grupsave2 = $1;
                print $grupsave2;
        } else {
                die "Bad data for group description('$grupsave2') in group";
       }

my $grupsave_insert = $dbh->do (q{INSERT INTO group_management (group_name,group_description,isactive) VALUES (?,?,?)}, undef, ($grupsave1,$grupsave2,'y'));
                } else {

}