my @sql_char_list = map { my $char = $_; my $wanted = $char eq '?' ? shift @bind : $char; $wanted; } split '', $stmt; $stmt = join "", @sql_char_list; die Dumper $stmt;