use String::ShellQuote qw( shell_quote );

my $cmd = shell_quote( "prog", $_->{Sub_URL}, "(?i)Podcast", @args );
system( $cmd );