@list = (
 q/print ( /,
 q/"some stuff"/,
 q/, $more_stuff, /,
 q/"final stuff"/,
 q/ );/
)